Immoral Angel 1/Immoral Angel 1.iso/pc/program/main.dxr/00047.ls

Text File | 1997-07-11 | 1.6 KB | 79 lines

on checkbeep n
  global beepnum
  clearcheckbeep()
  if n = 1 then
    set the hilite of cast "beep1" to 1
    puppetSound("1")
  else
    if n = 2 then
      set the hilite of cast "beep2" to 1
      puppetSound("2")
    else
      if n = 3 then
        set the hilite of cast "beep3" to 1
        puppetSound("3")
      else
        if n = 4 then
          set the hilite of cast "beep4" to 1
          puppetSound("4")
        end if
      end if
    end if
  end if
end

on clearcheckbeep
  set the hilite of cast "beep1" to 0
  set the hilite of cast "beep2" to 0
  set the hilite of cast "beep3" to 0
  set the hilite of cast "beep4" to 0
end

on cancelbeep
  global bgmonoff, beepnum
  if bgmonoff = "pi" then
    set the hilite of cast "bgmOnOff" to 1
    set bgmonoff to "pi"
  else
    set the hilite of cast "bgmOnOff" to 0
    set bgmonoff to "nul"
  end if
  clearcheckbeep()
  if beepnum = 1 then
    set the hilite of cast "beep1" to 1
  else
    if beepnum = 2 then
      set the hilite of cast "beep2" to 1
    else
      if beepnum = 3 then
        set the hilite of cast "beep3" to 1
      else
        if beepnum = 4 then
          set the hilite of cast "beep4" to 1
        end if
      end if
    end if
  end if
end

on setbeep
  global bgmonoff, beepnum
  if the hilite of cast "bgmOnOff" = 1 then
    set bgmonoff to "pi"
  else
    set bgmonoff to "nul"
  end if
  if the hilite of cast "beep1" = 1 then
    set beepnum to 1
  end if
  if the hilite of cast "beep2" = 1 then
    set beepnum to 2
  end if
  if the hilite of cast "beep3" = 1 then
    set beepnum to 3
  end if
  if the hilite of cast "beep4" = 1 then
    set beepnum to 4
  end if
end